(dired-file-set-difference): Don't use `caddr'.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9b401b7e41c3f5ba3ff4c0d4b6beec4b9a889371..6c1a9ad36f03270b105c2e530e87d1866154a376 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -163,8 +163,8 @@ condition.  Two file items are considered to match if they are equal
        (unless (let ((list list2))
                  (while (and list
                              (not (let* ((file2 (car list))
-                                         (fa1 (caddr file1))
-                                         (fa2 (caddr file2))
+                                         (fa1 (car (cddr file1)))
+                                         (fa2 (car (cddr file2)))
                                          (size1 (nth 7 fa1))
                                          (size2 (nth 7 fa2))
                                          (mtime1 (float-time (nth 5 fa1)))